home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / KERM22.ARC / MAKE KERMIT.INI (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  457 b   |  18 lines
  1. 1 REM CREATE KERMIT.INI
  2. 2 REM RAY MOODY 01/17/88
  3. 10 OPEN 15,8,15,"I0"
  4. 20 OPEN 2,8,2,"0:KERMIT.INI,S,W":GOSUB 200
  5. 50 READ A:IF A <> -1 THEN PRINT#2,CHR$(A);:GOTO 50
  6. 70 CLOSE 2:GOSUB 200:CLOSE 15
  7. 80 END
  8. 200 INPUT#15,E1$,E2$,E3$,E4$
  9. 210 IF E1$ <> "00" THEN PRINT E1$","E2$","E3$","E4$
  10. 220 IF E1$ > "20" THEN STOP
  11. 230 RETURN
  12. 300 DATA 25,  0,  1,  1,  0,  0,  2,  0
  13. 310 DATA  1,  0,  1,  0,  1,  1,  1,  0
  14. 320 DATA  0, 60,  1,  1,  1, 38, 38,  0
  15. 330 DATA  0,  0,  0, 13, 13, 93, 93, 10
  16. 340 DATA 10, 35, 35, 12, 15,  0,  1,  6
  17. 350 DATA -1
  18.